home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00277.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  486 b   |  23 lines
  1. on mouseUp
  2.   global cycleNo, userNo, correctionMade, wantsToViewCycles
  3.   if getAt(cycleNo, userNo) > 1 then
  4.     killcorrection()
  5.     if correctionMade = 0 then
  6.       writecycleinfo()
  7.       puppetVisible(13, 48, 1)
  8.       puppetStatus(11, 48, 0)
  9.       go("removeImage")
  10.       go("cycle list")
  11.       cursor(0)
  12.     else
  13.       set wantsToViewCycles to 1
  14.       go("save changes")
  15.       cursor(0)
  16.     end if
  17.   else
  18.     cursor(0)
  19.     alert("No previous cycles found.")
  20.   end if
  21.   cursor(0)
  22. end
  23.